Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

ClrText
Locate 6,2,"~FAST EYE~"
Locate 6,3,"----------"
Locate 2,4,"By:Marcus Lundstrom"
Locate 2,5,"-------------------"
While Getkey31
Locate 6,7,"Press [EXE]"
Locate 6,7," "
Locate 6,7," "
WhileEnd
ClrText
Locate 3,4,"-=Count the X's=-"
ClrText
0A~Z
50W
Lbl 0
0F:C+1C
If C=20
Then Goto 2
IfEnd
Int 20Ran#+1A
Int 6Ran#+1B
Int 2Ran#D
If D=0:Then Locate A,B,"(X)":E+1E
IfEnd
If D=1:Then Locate A,B,"(Y)":IfEnd
While FW
F+1F
WhileEnd
Locate A,B," "
Goto 0
Lbl 2
ClrText
Locate 3,2,"Number of X's"
?G
ClrText
Locate 1,4,"Right number is:"
Locate 17,4,E
Locate 1,6,"Percent"
GEx100Z
ZX
X+YY
If Z>100
Then Z-100
100-AnsZ
IfEnd
Locate 10,6,Z
ClrText
If W>10
Then Locate 5,5,"Get ready..."
IfEnd
ClrText
W-10W
0C
0E
If W0
Then Goto 0
IfEnd
ClrText
Locate 1,4,"Percent of all:"
Y500x100V
If V>100
Then V-100
100-AnsV
IfEnd
Locate 17,4,V